www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/manage/Admin_Main.asp

    <!--#include file="conn.asp"-->
<!--#include file="chkuser.asp"-->
<!--#include file="FCKeditor/fckeditor.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="copyright" content="Copyright 2008 dananshan.com" />
<meta name="Author" content="闪电文章管理系统技术支持---www.dananshan.com" />
<meta name="Keywords" content="闪电文章管理系统文章管理系统" />
<meta name="Description" content="闪电文章管理系统文章管理系统" />
<title>服务器信息</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<div id="frame_Toolbar" class="toolbarBg"> 
	<a href="javascript:self.history.back();" class="icoBtn_ct"><span class="btnIco btnBack"></span><span class="btnTxt">返回</span></a><a href="javascript:self.location.reload();" class="icoBtn_ct"><span class="btnIco btnReload"></span><span class="btnTxt">刷新</span></a> <span class="split ftSplit" ></span>
	<div id="guide">[<span class="light_orange"> <%=session("usr")%> </span>]您好,欢迎您进入闪电文章管理系统 1.1后台管理系统!</div>
</div>
<table class="cTable_2 table">
	<tr class="cTitle toolbarBg">
		<td width="50%"><div>服务器信息</div></td>
		<td width="50%"></td>
	</tr>
	<tr>
		<td>服务器操作系统:<%=Request.ServerVariables("OS")%></td>
	    <td>网站信息服务软件和版本:<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
	</tr>
	<tr>
	  <td>脚本解释引擎:<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
      <td>脚本超时时间:<%=Server.ScriptTimeout%>秒</td>
  </tr>
	<tr>
	  <td>ASPJPEG组件支持: 
	  <%
		  On Error Resume Next
		  Server.CreateObject("Persits.Jpeg")
		  if err=0 then 
			 response.write("<font color=red>√</font>")
		  else
			 response.write("<font color=red>×</font>")
		  end if
		  err=0
	  %>	  </td>
      <td>Jmail邮箱组件支持:
	  <%
		  If Not IsObjInstalled(theInstalledObjects(13)) Then
			 response.write("<font color=red>×</font>") 
		  else
			 response.write("<font color=red>√</font>") 
		  end if
      %>	  </td>
  </tr>
	<tr>
	  <td>返回服务器处理请求的端口:<%=Request.ServerVariables("SERVER_PORT")%></td>
      <td>协议的名称和版本:<%=Request.ServerVariables("SERVER_PROTOCOL")%></td>
  </tr>
	<tr>
	  <td>服务器 CPU 数量:<%=Request.ServerVariables("NUMBER_OF_PROCESSORS")%></td>
      <td>FSO文本文件读写:
	  <%
			On Error Resume Next
			Server.CreateObject("Scripting.FileSystemObject")
			if err=0 then 
			   response.write("<font color=red>√</font>,支持")
			else
			   response.write("<font color=red>×</font>,不支持")
			end if 
			err=0
      %>	  
	  </td>
  </tr>
	<tr>
	  <td>刘云峰的文件上传组件:
	  <%
			On Error Resume Next
			Server.CreateObject("LyfUpload.UploadFile")
			if err=0 then 
			   response.write("<font color=red>√</font>,支持")
			else
			   response.write("<font color=red>×</font>,不支持")
			end if 
			err=0
      %>
	  </td>
      <td>ASPUpload 文件上传:
	  <%
			On Error Resume Next
			Server.CreateObject("Persits.Upload.1")
			if err=0 then 
			   response.write("<font color=red>√</font>,支持")
			else
			   response.write("<font color=red>×</font>,不支持")
			end if 
			err=0
      %>
	  </td>
  </tr>
	<tr>
	  <td>客户端操作系统:
	  <%
		  dim thesoft,vOS
		  thesoft=Request.ServerVariables("HTTP_USER_AGENT")
		  if instr(thesoft,"Windows NT 5.0") then
			 vOS="Windows 2000"
		  elseif instr(thesoft,"Windows NT 5.2") then
			 vOs="Windows 2003"
		  elseif instr(thesoft,"Windows NT 5.1") then
			 vOs="Windows XP"
		  elseif instr(thesoft,"Windows NT") then
			 vOs="Windows NT"
		  elseif instr(thesoft,"Windows 9") then
			 vOs="Windows 9x"
		  elseif instr(thesoft,"unix") or instr(thesoft,"linux") or instr(thesoft,"SunOS") or instr(thesoft,"BSD") then
			 vOs="类Unix"
		  elseif instr(thesoft,"Mac") then
			 vOs="Mac"
		  else
			vOs="Other"
		  end if
		  response.Write(vOs)
      %>	  </td>
      <td>站点物理路径:<%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
  </tr>
	<tr>
	  <td>域名IP:http://<%=Request.ServerVariables("SERVER_NAME")%>&nbsp;/&nbsp;<%=Request.ServerVariables("LOCAL_ADDR")%></td>
      <td>虚拟路径:<%=Request.ServerVariables("SCRIPT_NAME")%></td>
  </tr>
	<tr>
	  <td colspan="2" bgcolor="#edf2f6">客户端浏览器要求: IE5.5或以上,并关闭所有弹窗的阻拦程序;服务器建议采用:Windows 2000或Windows 2003 Server。</td>
  </tr>
</table>
</body>
</html>